TT[HAL,HE] - www.SailDart.org

perm filename TT[HAL,HE] blob sn#199601 filedate 1976-01-30 generic text, type T, neo UTF8
AL HAL,HE

Exit
↑C
.
.RU AL1
Output to tty?Y
Output to a file?
OUTPUT PPN ( [foo,bar] ) = [HAL,RHT]
*(DSKIN "CARB.SEX[HAL,RHT]")

(PROG
(BLOCK $B1.XXT5 $B1.XXT4 $B1.XXT3 $B1.XXT2 $B1.XXT1 $B1.BASE_PLATE $B1.PALLET_SPOT $B1.CARB_SPOT $B1.INSPECTION_POINT $B1.PALLET_GRASP $B1.PALLET $B1.CARB_GRASP $B1.CARB $B1.INSPECTION_OK
 
 (BLKOP[ 1 ]) [IW=W415,OW=W416]
 (ASSIGNMENT $B1.BASE_PLATE  STATION) [IW=W416,OW=W417]
 (ASSIGNMENT BARM  FRAME( ROTN(  YHAT, 180.0000000*DEG), VECTOR( 43.54000, 56.86000, 10.73000))) [IW=W417,OW=W417]
 (ASSIGNMENT BHAND  3.0000000) [IW=W417,OW=W417]
 (PVL( $B1.BASE_PLATE ))
 (AFFIX[  $B1.CARB_GRASP, $B1.CARB, $B1.XXT1, TRANS( NILROTN, VECTOR( .0000000, .0000000, .7500000)), NONRIGIDLY,NULL_RECORD ]) [IW=W417,OW=W420]
 (AFFIX[  $B1.PALLET_GRASP, $B1.PALLET, $B1.XXT2, TRANS( NILROTN, VECTOR( .0000000, .0000000, .5000000)), RIGIDLY,NULL_RECORD ]) [IW=W420,OW=W421]
 (AFFIX[  $B1.CARB_SPOT, $B1.BASE_PLATE, $B1.XXT3, TRANS( NILROTN, VECTOR( 8.000000, 2.500000, .0000000)), NONRIGIDLY,NULL_RECORD ]) [IW=W421,OW=W422]
 (AFFIX[  $B1.PALLET_SPOT, $B1.BASE_PLATE, $B1.XXT4, TRANS( NILROTN, VECTOR( 2.500000, 2.500000, .0000000)), NONRIGIDLY,NULL_RECORD ]) [IW=W422,OW=W423]
 (AFFIX[  $B1.INSPECTION_POINT, $B1.BASE_PLATE, $B1.XXT5, TRANS( NILROTN, VECTOR( 2.500000, 6.500000, .0000000)), NONRIGIDLY,NULL_RECORD ]) [IW=W423,OW=W424]
 (PVL( $B1.CARB_SPOT $B1.BASE_PLATE $B1.XXT3 ))
 (ASSIGNMENT $B1.CARB  $B1.CARB_SPOT) [IW=W424,OW=W425]
 (ASSIGNMENT $B1.PALLET  $B1.PALLET_SPOT) [IW=W425,OW=W425]
 (PVL( $B1.CARB $B1.CARB_GRASP ))
 (COBLOCK
  (BLOCK
   
   (BLKOP[ 1 ]) [IW=W426,OW=W427](WAIT  $B1.INSPECTION_READY) [IW=W427,OW=W430]
   (IFF(SEQ $B1.INSPECTION_OK .0000000)
    (ASSIGNMENT $B1.INSPECTION_OK  1.0000000) [IW=W431,OW=W432]
    (ASSIGNMENT $B1.INSPECTION_OK  .0000000) [IW=W433,OW=W434]
    ) [IW=W430,OW=W435](SIGNAL  $B1.INSPECTION_DONE) [IW=W435,OW=W436]
   (BLKOP[ 2 ]) [IW=W436,OW=W437]
   ) [IW=W426,OW=W437]
  (BLOCK $B3.XXT10 $B3.XXT9 $B3.XXT8 $B3.XXT7 $B3.XXT6
   
   (BLKOP[ 1 ]) [IW=W440,OW=W441]
   (MOVE$ BHAND TO  2.5000000) [IW=W441,OW=W442]
   (PVL( $B1.CARB $B1.CARB_GRASP ))
   (MOVE$ BARM TO  $B1.CARB_GRASP) [IW=W442,OW=W443]
   (CENTER BARM) [IW=W443,OW=W444]
   (AFFIX[  $B1.CARB, BARM, $B3.XXT6,NULL_RECORD, NONRIGIDLY,NULL_RECORD ]) [IW=W444,OW=W445]
   (BLOCK
    
    (BLKOP[ 1 ]) [IW=W445,OW=W446]
    (COMMNT[ NULL_RECORD ]) [IW=W446,OW=W446]
    (MOVE$ $B1.CARB TO (TVADD $B1.PALLET VECTOR( .0000000, .0000000,-.3000000))
     
      (VIA(TVADD $B1.PALLET VECTOR( .0000000, .0000000, 10.00000)))
      ) [IW=W446,OW=W447]
    (BLKOP[ 2 ]) [IW=W447,OW=W450]
    ) [IW=W445,OW=W450]
   (MOVE$ BHAND TO  2.5000000) [IW=W450,OW=W451]
   (UNFIX[  $B1.CARB, BARM,NULL_RECORD ]) [IW=W451,OW=W452]
   (AFFIX[  $B1.CARB, $B1.PALLET, $B3.XXT7,NULL_RECORD, NONRIGIDLY,NULL_RECORD ]) [IW=W452,OW=W453]
   (MOVE$ BHAND TO  5.0000000) [IW=W453,OW=W454]
   (MOVE$ BARM TO  $B1.PALLET_GRASP
    
     (VIA(TVADD $B1.PALLET VECTOR( .0000000, .0000000, 10.00000)))
     ) [IW=W454,OW=W455]
   (CENTER BARM) [IW=W455,OW=W456]
   (AFFIX[  $B1.PALLET, BARM, $B3.XXT8,NULL_RECORD, NONRIGIDLY,NULL_RECORD ]) [IW=W456,OW=W457]
   (MOVE$ $B1.PALLET TO  $B1.INSPECTION_POINT) [IW=W457,OW=W460]
   (MOVE$ BHAND TO  5.0000000) [IW=W460,OW=W461]
   (UNFIX[  $B1.PALLET, BARM,NULL_RECORD ]) [IW=W461,OW=W462]
   (MOVE$ BARM TO  FRAME( ROTN(  YHAT, 180.0000000*DEG), VECTOR( 43.54000, 56.86000, 10.73000))
    
     (VIA(TVADD $B1.PALLET_GRASP VECTOR( .0000000, .0000000, 10.00000)))
     ) [IW=W462,OW=W463](SIGNAL  $B1.INSPECTION_READY) [IW=W463,OW=W464](WAIT  $B1.INSPECTION_DONE) [IW=W464,OW=W465]
   (MOVE$ BARM TO  $B1.CARB_GRASP) [IW=W465,OW=W466]
   (CENTER BARM) [IW=W466,OW=W467]
   (AFFIX[  $B1.CARB, BARM, $B3.XXT9,NULL_RECORD, NONRIGIDLY,NULL_RECORD ]) [IW=W467,OW=W470]
   (MOVE$ $B1.CARB TO  $B1.CARB_SPOT
    
     (VIA(TVADD $B1.CARB_SPOT ZHAT))
     (VIA(TVADD $B1.CARB ZHAT))
     ) [IW=W470,OW=W471]
   (MOVE$ BHAND TO  5.0000000) [IW=W471,OW=W472]
   (MOVE$ BARM TO  $B1.PALLET_GRASP) [IW=W472,OW=W473]
   (CENTER BARM) [IW=W473,OW=W474]
   (AFFIX[  $B1.PALLET, BARM, $B3.XXT10,NULL_RECORD, NONRIGIDLY,NULL_RECORD ]) [IW=W474,OW=W475]
   (MOVE$ $B1.PALLET TO  $B1.PALLET_SPOT) [IW=W475,OW=W476]
   (MOVE$ BHAND TO  5.0000000) [IW=W476,OW=W477]
   (MOVE$ BARM TO  FRAME( ROTN(  YHAT, 180.0000000*DEG), VECTOR( 43.54000, 56.86000, 10.73000))) [IW=W477,OW=W500]
   (BLKOP[ 2 ]) [IW=W500,OW=W501]
   ) [IW=W440,OW=W501]
  ) [IW=W425,OW=W502]
 (BLKOP[ 2 ]) [IW=W502,OW=W503]
 ) [IW=W415,OW=W503]) [IW=W237,OW=W503]

IN WORLD W417, $B1.BASE_PLATE HAS GRAPH PROPERTIES:
          VALUE NODE =[INV=0,VAL= STATION]
	DEPS= <NONE> 
	CALCS= <NONE> 
	CHANGERS= <NONE> 


IN WORLD W424, $B1.CARB_SPOT HAS GRAPH PROPERTIES:
          VALUE NODE = NULL_RECORD 
	DEPS= <NONE> 
	CALCS=( calc ITEM351: (TTMUL $B1.BASE_PLATE $B1.XXT3))
	CHANGERS=(changer ITEM346: 
          (ASSIGNMENT $B1.XXT3 (TTMUL(TINVRT $B1.BASE_PLATE)
          (SPECVAL[ 0,4 ]))) [IW=ANY,OW=ANY])

          IN WORLD W424, CALCULATOR ITEM351 HAS GRAPH PROPERTIES:
                    VALUE NODE = NULL_RECORD 
          
          	DEPS= $B1.CARB_SPOT
          

IN WORLD W424, $B1.BASE_PLATE HAS GRAPH PROPERTIES:
          VALUE NODE =[INV=0,VAL= STATION]
	DEPS=( calc ITEM372: (TTMUL $B1.BASE_PLATE $B1.XXT5))
          ( calc ITEM351: (TTMUL $B1.BASE_PLATE $B1.XXT3))
          ( calc ITEM361: (TTMUL $B1.BASE_PLATE $B1.XXT4))
	CALCS= <NONE> 
	CHANGERS= <NONE> 


IN WORLD W424, $B1.XXT3 HAS GRAPH PROPERTIES:
          VALUE NODE =[INV=0,VAL= TRANS( NILROTN, VECTOR( 8.000000, 2.500000, .0000000))]
	DEPS=( calc ITEM351: (TTMUL $B1.BASE_PLATE $B1.XXT3))
	CALCS= <NONE> 
	CHANGERS= <NONE> 


IN WORLD W425, $B1.CARB HAS GRAPH PROPERTIES:
          VALUE NODE =[INV=0,VAL= FRAME( NILROTN, VECTOR( 8.000000, 2.500000, .0000000))]
	DEPS=( calc ITEM324: (TTMUL $B1.CARB $B1.XXT1))
	CALCS= <NONE> 
	CHANGERS= <NONE> 


IN WORLD W425, $B1.CARB_GRASP HAS GRAPH PROPERTIES:
          VALUE NODE = NULL_RECORD 
	DEPS= <NONE> 
	CALCS=( calc ITEM324: (TTMUL $B1.CARB $B1.XXT1))
	CHANGERS=(changer ITEM328: 
          (ASSIGNMENT $B1.XXT1 (TTMUL(TINVRT $B1.CARB)
          (SPECVAL[ 0,4 ]))) [IW=ANY,OW=ANY])

          IN WORLD W425, CALCULATOR ITEM324 HAS GRAPH PROPERTIES:
                    VALUE NODE = NULL_RECORD 
          
          	DEPS= $B1.CARB_GRASP
          

IN WORLD W442, $B1.CARB HAS GRAPH PROPERTIES:
          VALUE NODE =[INV=0,VAL= FRAME( NILROTN, VECTOR( 8.000000, 2.500000, .0000000))]
	DEPS=( calc ITEM324: (TTMUL $B1.CARB $B1.XXT1))
	CALCS= <NONE> 
	CHANGERS= <NONE> 


IN WORLD W442, $B1.CARB_GRASP HAS GRAPH PROPERTIES:
          VALUE NODE = NULL_RECORD 
	DEPS= <NONE> 
	CALCS=( calc ITEM324: (TTMUL $B1.CARB $B1.XXT1))
	CHANGERS=(changer ITEM328: 
          (ASSIGNMENT $B1.XXT1 (TTMUL(TINVRT $B1.CARB)
          (SPECVAL[ 0,4 ]))) [IW=ANY,OW=ANY])

          IN WORLD W442, CALCULATOR ITEM324 HAS GRAPH PROPERTIES:
                    VALUE NODE = NULL_RECORD 
          
          	DEPS= $B1.CARB_GRASP
          


Invalid index for array TXTARR. Index no. 1, value is 0
Called from 24522  Last SAIL call at 51501
?B

BAIL ver. 28-Jan-76
File error, busyDSK:AL.BAI
Try again, ALT to ignore. *ALXX.BAI

AL    .SM1
  DSK:AL    .SAI
  DSK:ABBREV.SAI[  S,RHT]
  DSK:RECAUX.HDR[  S,RHT]
  SYS:RECORD.DEF
  DSK:PRINTF.HDR[  S,RHT]
  DSK:HALPRN.HDR[HAL, HE]
  DSK:GOBBLE.HDR[HAL, HE]
WLDMOD.SM1
  DSK:WLDMOD.SAI
  DSK:HALSAI.SAI
  DSK:HALREQ.HDR[HAL, HE]
  DSK:ABBREV.SAI[  S,RHT]
  DSK:MACROS.SAI[  S,RHT]
  DSK:RECAUX.HDR[  S,RHT]
  SYS:RECORD.DEF
  DSK:LEPAUX.HDR[  S,RHT]
  DSK:PRINTF.HDR[  S,RHT]
  DSK:IOMOD .HDR[  S,RHT]
  DSK:PRCAUX.HDR[  S,RHT]
  DSK:REFBTS.DEF[  S,RHT]
  DSK:RHTCOM.HDR[HAL,RHT]
  DSK:PMATCH.HDR[HAL, HE]
  DSK:ARITH .HDR[HAL, HE]
  DSK:HALREC.SAI[HAL, HE]
  DSK:HALPRN.HDR[HAL, HE]
  DSK:EXPRS .HDR[HAL, HE]
  DSK:WLDMOD.HDR[HAL, HE]
  DSK:GOBBLE.HDR[HAL, HE]
HALPRN.SM1
  DSK:HALPRN.SAI
  DSK:HALSAI.SAI
  DSK:HALREQ.HDR[HAL, HE]
  DSK:ABBREV.SAI[  S,RHT]
  DSK:MACROS.SAI[  S,RHT]
  DSK:RECAUX.HDR[  S,RHT]
  SYS:RECORD.DEF
  DSK:LEPAUX.HDR[  S,RHT]
  DSK:PRINTF.HDR[  S,RHT]
  DSK:IOMOD .HDR[  S,RHT]
  DSK:PRCAUX.HDR[  S,RHT]
  DSK:REFBTS.DEF[  S,RHT]
  DSK:RHTCOM.HDR[HAL,RHT]
  DSK:PMATCH.HDR[HAL, HE]
  DSK:ARITH .HDR[HAL, HE]
  DSK:HALREC.SAI[HAL, HE]
  DSK:HALPRN.HDR[HAL, HE]
  DSK:EXPRS .HDR[HAL, HE]
  DSK:WLDMOD.HDR[HAL, HE]
GOBBLE.SM1
  DSK:GOBBLE.SAI
  DSK:HALSAI.SAI
  DSK:HALREQ.HDR[HAL, HE]
  DSK:ABBREV.SAI[  S,RHT]
  DSK:MACROS.SAI[  S,RHT]
  DSK:RECAUX.HDR[  S,RHT]
  SYS:RECORD.DEF
  DSK:LEPAUX.HDR[  S,RHT]
  DSK:PRINTF.HDR[  S,RHT]
  DSK:IOMOD .HDR[  S,RHT]
  DSK:PRCAUX.HDR[  S,RHT]
  DSK:REFBTS.DEF[  S,RHT]
  DSK:RHTCOM.HDR[HAL,RHT]
  DSK:PMATCH.HDR[HAL, HE]
  DSK:ARITH .HDR[HAL, HE]
  DSK:HALREC.SAI[HAL, HE]
  DSK:HALPRN.HDR[HAL, HE]
  DSK:EXPRS .HDR[HAL, HE]
  DSK:WLDMOD.HDR[HAL, HE]
PASS3 .SM1
  DSK:PASS3 .SAI
  DSK:HLSAIF.SAI
  DSK:ABBREV.SAI[  S,RHT]
  DSK:RECAUX.HDR[  S,RHT]
  SYS:RECORD.DEF
  DSK:MACROS.SAI[  S,RHT]
  DSK:ARITH .HDR[HAL, HE]
  DSK:HALREC.SAI[HAL, HE]
  DSK:HALPRN.HDR[HAL, HE]
  DSK:EMITER.HDR[HAL, HE]
  DSK:INTDEF.SAI[HAL, HE]
TCALC .SM1
  DSK:TCALC .SAI
  DSK:HLSAIF.SAI
  DSK:ABBREV.SAI[  S,RHT]
  DSK:RECAUX.HDR[  S,RHT]
  SYS:RECORD.DEF
  DSK:MACROS.SAI[  S,RHT]
  DSK:ARITH .HDR[HAL, HE]
  DSK:HALREC.SAI[HAL, HE]
  DSK:HALPRN.HDR[HAL, HE]
  DSK:EMITER.HDR[HAL, HE]
  DSK:INTDEF.SAI[HAL, HE]
EXPRS .SM1
  DSK:EXPRS .SAI
  DSK:HALSAI.SAI
  DSK:HALREQ.HDR[HAL, HE]
  DSK:ABBREV.SAI[  S,RHT]
  DSK:MACROS.SAI[  S,RHT]
  DSK:RECAUX.HDR[  S,RHT]
  SYS:RECORD.DEF
  DSK:LEPAUX.HDR[  S,RHT]
  DSK:PRINTF.HDR[  S,RHT]
  DSK:IOMOD .HDR[  S,RHT]
  DSK:PRCAUX.HDR[  S,RHT]
  DSK:REFBTS.DEF[  S,RHT]
  DSK:RHTCOM.HDR[HAL,RHT]
  DSK:PMATCH.HDR[HAL, HE]
  DSK:ARITH .HDR[HAL, HE]
  DSK:HALREC.SAI[HAL, HE]
  DSK:HALPRN.HDR[HAL, HE]
  DSK:EXPRS .HDR[HAL, HE]
  DSK:WLDMOD.HDR[HAL, HE]
SYS:BAICLC.SM1
SYS:BAIIO1.SM1
SYS:BAIIO2.SM1
SYS:BAIMSC.SM1
SYS:BAIPRC.SM1
End of BAIL initialization.

'24522	%%% File not viewable
1:TEXT;
   
LEXICAL SCOPE, TOP DOWN:
$RUN$

DYNAMIC SCOPE, MOST RECENT FIRST:
routine		text
.simple.	'24522	%%% File not viewable
HALPRN	#689 	$PRINT("("&CVRTS(ST),OPF);
		
COMERR	'157115	%%% File not viewable
PPLANVAL	#2052 	COMERR("PPLANVAL garbage",OFTHIS);
    
PPLANVAL	#2049 	RETURN(PPLANVAL(GETVALUE(OFTHIS,WORLD), WORLD));
        E
TRJCLC	#2335 	PLACESOL(THREAD:ANGLES[MOTION],
	PPLANVAL(THREAD:PLACE[MOTION],WORLD), ARM, FLAG);
    
TSCAN	#1965 	TRJCLC(PARSETREE,STMNT:IW[STATEMENT]);
	
TSCAN	#1787+	WHILE C ≠ RNULL DO
            TSCAN(LLOP(C));

	
TSCAN	#1825 	TSCAN(LLOP(C));
	    
TSCAN	#1787+	WHILE C ≠ RNULL DO
            TSCAN(LLOP(C));

	
TSCAN	#1696 	TSCAN(PROG:CODE[PARSETREE]);

	
al	#10 	TSCAN(BS);
    

1:ST;

Mul. def. ID:  ST
;␈

1:SETLEX(1);

LEXICAL SCOPE, TOP DOWN:
$RUN$
HALSAI
HALPRN
B0017
B0118

1:ST;
   76567
1:TEXT;
   
LEXICAL SCOPE, TOP DOWN:
$RUN$
HALSAI
HALPRN
B0017
B0118

DYNAMIC SCOPE, MOST RECENT FIRST:
routine		text
.simple.	'24522	%%% File not viewable
HALPRN	#689 	$PRINT("("&CVRTS(ST),OPF);
		
COMERR	'157115	%%% File not viewable
PPLANVAL	#2052 	COMERR("PPLANVAL garbage",OFTHIS);
    
PPLANVAL	#2049 	RETURN(PPLANVAL(GETVALUE(OFTHIS,WORLD), WORLD));
        E
TRJCLC	#2335 	PLACESOL(THREAD:ANGLES[MOTION],
	PPLANVAL(THREAD:PLACE[MOTION],WORLD), ARM, FLAG);
    
TSCAN	#1965 	TRJCLC(PARSETREE,STMNT:IW[STATEMENT]);
	
TSCAN	#1787+	WHILE C ≠ RNULL DO
            TSCAN(LLOP(C));

	
TSCAN	#1825 	TSCAN(LLOP(C));
	    
TSCAN	#1787+	WHILE C ≠ RNULL DO
            TSCAN(LLOP(C));

	
TSCAN	#1696 	TSCAN(PROG:CODE[PARSETREE]);

	
al	#10 	TSCAN(BS);
    

1:ARGS;
      .-34250615569   0
1:SETLEX(1);

LEXICAL SCOPE, TOP DOWN:
$RUN$
HALSAI
HALPRN
B0017
B0118

1:S;
   .-34250615569
1:CVOS(S);
   "400640212357"
1:MEMORY['212357];
   76567
1:SETLEX(3);

LEXICAL SCOPE, TOP DOWN:
$RUN$
HLSAIF
PPLANVAL
PPLANVAL

1: